 DEFINE SlideSpace, Space=ROM
 DEFINE TextSpace, Space=ROM
 SEGMENT SlideSpace
 INCLUDE "expression.inc"
Counter1 EQU 1
UseLibrary MACRO label
&label&Lib EQU Counter1
       .eval Counter1+1,Counter1
       PUBLIC &label&Lib
 ENDMAC

DefineMainSlide MACRO label
&label:
_MainSlide EQU &label
       PUBLIC _MainSlide

 ENDMAC

DefineSlide MACRO label
&label:
 ENDMAC

Text MACRO label,stuff
 segment TextSpace
&label:
       db     &stuff,0
 segment SlideSpace

 ENDMAC

Rename MACRO name1,name2
&name2 EQU name1
 ENDMAC

DefineSprite MACRO name,xc,yc
&name:
       db     yc,xc
 ENDMAC

